home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
+look_here_1st!+
/
reader_requests
/
alienbreed3d2
/
cheesesauce
/
memclr.s
< prev
next >
Wrap
Text File
|
1997-11-28
|
1KB
|
97 lines
; Grab all available memory into a buffer:
include workbench:sysinc/exec/exec_lib.i
move.l #65536,d7
move.l #tab,a0
getmemlop:
movem.l d7/a0,-(a7)
move.l d7,d0
moveq.l #1,d1 ; chipmem
move.l 4.w,a6
jsr -198(a6)
movem.l (a7)+,d7/a0
tst.l d0
beq.s gotitall
move.l d0,(a0)+
add.l d7,d0
move.l d0,(a0)+
bra.s getmemlop
gotitall:
sub.l #1024,d7
bgt.s getmemlop
move.l #-1,(a0)+
; Group memory into large chunks
; bra nogroup
move.l #tab,a0
group:
move.l (a0),d0
blt.s groupedall
beq.s thisonedone
move.l 4(a0),d1
lea 8(a0),a1
findnext:
move.l (a1),d2
blt.s foundall
beq.s notthisone
cmp.l d1,d2
bgt.s notthisone
cmp.l 4(a1),d1
bgt.s notthisone
move.l 4(a1),d1
ignore:
move.l #0,(a1)
move.l #0,4(a1)
lea 8(a0),a1
notthisone:
addq #8,a1
bra.s findnext
foundall:
move.l d1,4(a0)
thisonedone:
addq #8,a0
bra.s group
groupedall:
; release memory to system
nogroup:
; btst #7,$bfe001
; bne.s nogroup
move.l #tab,a0
rellop:
move.l (a0),d1
blt.s relall
beq.s norelthis
move.l 4(a0),d0
move.l d1,a1
sub.l d1,d0
move.l a0,-(a7)
CALLEXEC FreeMem
move.l (a7)+,a0
norelthis:
addq #8,a0
bra.s rellop
relall:
rts
tab:
ds.l 2000